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PECL ARATIONS 

RMSSOPEN - EN ROUTINE 

RMSCHK_SLIST = Process the searclist loop 
RMSKNOONFILE = Kernel Mode Known FILE Support 
WRITE_AT_JNL = Local Subroutine 
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++ 
; Facility: RMS32 


: Abstract: 
This module is the highest level control routine 
to perform the Sopen function. 


Environment: 
Star processor running Starlet exec. 


Author: L. F. Laverdure Creation Date: 3-JAN-1977 
Modified By: 


v03-033 RASO320 Ron Schaefer 6-Jul-1984 
Narrow the List of continuable search list errors. 


v03-032 RASO309 Ron Schaefer 14-Jun-1984 
Check the protection of installed open images exactly 
as the ACP would. Also return execute-only access 
permission information as well. 


v03-031 RASO301 Ron Schaefer 30-Apr-1984 
Fix bug in RASO286 that caused an infinite loop 
if doing a knownfile lookup over the net or for an 
explicit version number. 


V03-030 RASO286 Ron Schaefer 3-Apr-1984 
Change the knownfile lookup logic with respect to 
searchlists so that if a knownfile is requested, 
examine each searchlist element as a known file; 
then restart at the beginning for ordinary file opens. 
Revise the searchlist continuation rules/errors. 


V03-029 RASO285 Ron Schaefer 2-Apr-1984 


FIB buffer. For norma /SCREATE, the DID is alread 


we copy the DID from the NAM block over into the Fl 
we filled in the remaining NAM block fields. 


work before when we depended on the NAM block 


doesn't seem to be too important. 
v03-028 DASO002 David Solomon 25-Mar-1984 

Fix incorrect reference to XABOPN_ARGS (use RMS symbol). 
v03-627 DASO001 David Solomon 25-Mar-1984 

Fix broken CASE. 
V03-026 RASO268 Ron Schaefer 12-Mar-1984 


Move searchlist loop decision from RMSPRFLNM to here 
so as to get consistent processing. 


Complete RAS0270 by copy ing/precery 108 the DID in the FWA's 


This also doesn't work for known files since the DID is not 
saved. However, deleting, submitting or spooling known files 
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in the FIB buffer; however, for open by NAM block and FID, the 
DID in the FIB must be 0 at the access. If that pespens . 
after 


Note that this will NOT work for people who fondle their NAM 
blocks between the S$SEARCH and the SOPEN, but they didn't 
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0000 3 
0000 3 
0000 3 
0000 3 
0000 5 
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0000 5 
0000 3 
0000 3 
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0000 3 
0000 3 
0000 3 
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0000 : 
44 3 
0000 3 
0000 3 
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v03-025 RASO243 Ron Schaefer 23-Jan-1984 
Add SPRDEF macro and add RM$ prefix to global symbol. 
v03-024 RASO218 Ron Schaefer 5-Dec-1983 


Make node names work as search List elements. 
Preserve NAM block context properly across search List elements. 


v03-023 RASO209 Ron Schaefer ov~-1983 
Clean-up returned device shores tar tenres ay calling 
a central routine RMSRET_DEV_CHAR 


v03-022 edly | Ron Schaefer 6-0¢ t-1983 
Merge SOPEN and SCREATE *searchlist Looping lo be into a 
single routine RMSCHECK_SRCHLIST. Only loop 
certain types of error; not for all. 


v03-021 RASO196 Ron Schaefer 3-0c t-1983 
Fix RASO195 to preserve the status value of the previous 
acaeght tat element when deassigning the channel. 
Also correct wrong data type usage in RASO189. 


v03-020 RASO195 Ron Schaefer 27-Sep-1983 
Return unsuccessful channels assigned when looping 
thru the searchlist. 


v03-019 RASO189 Ron Schaefer ae 
Complete known file support oy poe reagan A 
kernel mode routine to properly update system 
refcnts et. al. 


v03-018 KPLO005 Peter Lieberwirth 15-Aug-1983 
Don't clear pointer to JNLBDB before RELEASEALL because 
RELEASEALL no longer releases journal BDBs. 


v03-017 LJA0087 Laurie J. Anderson ei og 
Clear the create bit at the end of the create. 
not want that bit set for the duration of the tile being 
open. 


v03-016 RPGO016 Bob Grosso 29-Jul-1983 
Skip_ known file open if there was an explicit version. 
Use FID to open file if installed but not open. 


v03-015 KPLO004 Peter Lieberwirth 25-Jul-1983 
Fix bug in AT journaling introduced in v03-011. 
V03-014 LJK0224 Lawrence J. K 6-Jul-1983 
Store WCB address in CCB for ites installed /OPEN 
v03-013 KBT055¢ Keith B. Thompson 55-Jul-1983 
More kf work 
v03-012 eevenss Keith B. Thompson 22-Jun-1983 


Use new kf routine 
v03-011 KPLO003 Peter Lieberwirth 20-Jun-1983 
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4 RMS( 
-SEP-1984 RMS..SRCIRMSOOPEN.MAR; 1 (2) v04: 


i. 
| 
00 143 Add local routine WRITE_AT_JNL to flush file-related | 
145 ; AT journal record to the journal. This is not done at 
144 ; ASSJNL time because the AT journal record accumulates 
145 ; info during the operation, and is only complete at the 
000 142 pons | 
00 148 : v03-010 xBT0531 Keith B. Thompson 17-Jun-1983 
4 13 ; Implement search List | 
0000 151; v03-009 KPL0002 Peter Lieberwirth 30-May-1983 
4 13 : Clear pointer to journal BDB when it is deallocated. 
$008 132 : v03-008 RASO155 Ron Schaefer 33-May-1983 | 
0000 155; Make indirect PPF 1/0 Look Like a terminal regardless 
0000 156 ; of the Sa0 bit. | 
0000 158: V03-007 ROW0170 Ralph 0. Weber 3-MAR-1983 
0000 159; Correct broken branch destination to RMSCLOSE3 in error | 
3000 199 3 processing. 
0000 16¢ ; V03-006 LJA0061 Laurie J. Anderson 23-F eb-1983 | 
0000 163; Move RMSFILLNAM to RMONAMSTR which is where it belongs. 
i444 160 3 It fills in the NAM block with the resultant name string plus... 
0000 166; v03-005 KBT0421 Keith 8. Thompson 30-Nov-1982 
444 HH ; Change ifb$w_devbufsiz to ifb$l_devbufsiz 
0000 169; v03-004 LJA0020 Laurie Anderson 02-Sep-1982 
0000 170; Define an alternate entry point for top level open. | 
464 V7) : If restart from create, just try to open the file. | 
0000 198 ; v03-003 KBT0187_ Keith B. Thompson 22~hug 1962 | 
44 Vr 3 Reorganize psects and rename entry point to single ‘$' | 
0000 176: V03-002 RASO084 Ron Schaefer 2=Apr-1982 
0000 177; Return RAT=CR for stream format files even if 
B60 178 3 the file attribute is none. | 
0000 180: v03-001 KPLO001 Peter Lieberwirth 22-Mar-1982 
0000 181; Fix bugcheck on shared file ISAM UFO open by making 
8000 18¢ 5 sure IFAB address is in R10. | 
0000 184 ; v02-052 cps0002 C Saether 5-Feb-1982 
4 13? : Return GBC field to FAB from ifab. 
0000 187 : v02-051 TMKO001 Todd M. Katz 17-Jan-1982 | 
000 188 ; If the device is mounted foreign, arrange it so that | 
000 189 ; when the resultant name string is written out it 
909 190 : contains a null length directory (ie CJ). | 
0000 136 : v02-050 RASO0S1 Ron Schaefer _ 22-Dec-1981 | 
00 193; Properly probe the NAM block whenever its address is 
a4 133 ; fetched from the user's FAB. 
0900 196 ; V02-049 JwHOOO1 Jeffrey W. Horn 16-Dec-1981 
00 197 ; Clear FWASV_DIR bit if either not directory device, or 
0000 8198 ; SDI device. 


————— 
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000 199 ; 

0090 00 ; V02-048 TMHO048 Tim Halvorsen 05-Sep-1981 
8 4 3 Translate FWASQ_DEVICE string once before stor ing it 

44 6 ; into DVI, so that DVI always gets the actual device name. 
0000 04 : v02-047 PSK0001 P. S. Knibbe 31-Aug-1981 

4 05 ; Change default length for key xab's to be 

4 36 ; keylen_v2. Anything longer will be legal. 

0000 08 ; V02-046 KEK0008 K. E. Kinnear Pig habe. 

000 09 ; On foreign devices, return both DEV and SDC characteristics 
4464 19 ; bits as we got them from the exec, not SDC with DIR clear. 
0000 \ : v02-045 MCND005 Maria del C. Nasr 10-Feb-1981 
4 F : Make sure magtape is mounted before opening file. 
0000 215 ; V02-044 SPR35461 Maria del C. Nasr 02-Feb-1981 
0000 51$ ; Change return from CIF processing to check for any errors 
0000 17: 
0000 218 ;-- 
0000 219 
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vOe~008" 


$C_OPNKEY3 
LL3 


OPRA 


; bit offset to fop 
BC$C_OPNSUM3 

2,xBC 

BCSC_ 


x<> x 


SUM, XABSC 
XABSC 


~SBTTL DECLARATIONS 
XABSC 
XABSC 
XABSC 


Include Files: 
SXABALLDEF 
SXABKEYDEF 
SXABSUMDEF 

Equated Symbols: 
FOP=F ABSL_FOP*8 

Own Storage: 

6 


Macros: 
RMSXABOPN_ARGS:: 
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~SEP=1984 
-SBTTL RMSSOPEN = SOPEN ROUTINE 


> 
+ 


RMSSOPEN -=- Open routine. 


This routine performs the highest level Sopen processing. 
its functions include: 


1. Common setup. 
¢: Dispatch to organization-dependent code. 
- Dispatch to the display routine. 
Calling Sequence: 


Entered from exec as a reult of user's calling sys$open 
(e.g., by using the Sopen macro). 


Input Parameters: 
AP user's argument List addr 
Implicit Inputs: 


The contents of the fab and possible related user interface 
blocks. 


Output Parameters: 


RO status code 
R1 destroyed 


Implicit Outputs: 
The various fields of the fab are filled in to reflect 
the status of the open file. (see rms functional spec for 
a complete List.) 
An ifab is initialized to reflect the open file. 
A completion ast is queued if so specified by the user. 
Completion Codes: 
Standard rms (see functional spec for List). 
Side Effects: 


none 


SENTRY RMSSOPEN 

STSTPT OPEN 

BSBW RMSFSETI ; do common setup 

3; note: does not return on error 
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RMSSOPEN = SOPEN ROUTINE ets tf 5:12 (CRMS.SRCIRMSOOPEN.MAR; 1 ” (4) | 
1 73 
1 8 ; Alternate entry point for open. Called from create when the create call 
! 3 3 was a restart operation. 
1 . 
1 ¢ RMSOPEN_ALT:: 
ae 
1 5 : An ifab has been set up 
bo13, 889 
SA 4 Ba Hs CLRL R10 i; no FWA to start with 
FFE8* 30 it ib BSBW RMSPRFLNM : process file name 
05 22 A9 «62006~—séE:‘ $018 41 BBC #F ABSV_BRO, IFBSB_FAC(R9) ,10$ ; branch if bro not set 
001D g CSB #F ABSV_BIO, IFBSB_FAC(R9) ; clear bio (implied 
00 4 3 by bro without restrictions) 
70 50 «=6—€9) «(00 44 10$: BLBC RO,50$ 3 exit on error from RMSPRFLNM 
47 68 3€ €1 QO 45 208: BBC #FABSV_KFO*FOP, (RB) ,22$ ; branch if kfo not set 
57 28 AB 08 0029 46 MOVL FABSL_RAM(RB) ,R7 3 get name block 
FFDO' 30 002d 47 BSBW RMSCHRNAM 3 can we use it? 
30 50 €9 00 9 48 BLBC RO,228 3 nope 
38 6A 819 £0 003 49 BBS #FWASV_NODE, (R10) ,25$ ; branch on network operation 
37 6A 610 «£0 it 29 BBS #FWASVIEXP_VER, (R10), 258 3 explicit version, skip KF lookup 
0038 26 ; 
003 53 ; INSSKF_SCAN returns RO: 
0038 54; 
Sete 2? : SS$_NORMAL - known file found but not open 
oote 337 : RMSS$_KFF - known file found and it was open 
0038 359 ; RMS$_FNF - known file not found 
0038 60 ; 
0038 61 
18 AS ODF 0038 6¢ PUSHAL FABSL_CTX(R8) 3; return KFE in fab 
57 DD OO3E 6 PUSHL R7 i filled in name block 
OOOOOO0O'EF O02 FB 004 64 CALLS #2, INSSKF_SCAN 3 go try known file table 
20 50—s«éE9 ee 22 BLBC RO, 30$ ; not installed 
50 00018031 8F D1 OO04A 67 CMPL #RMSS$_KFF,RO ; was the file installed open 
3a sé Bnet o8 BNEQ 40$ : installed, but not open 
50 =D 0033 0 PUSHL RO ; preserve status | 
05 1 SCMKRNL_S - ; kernel mode routine to 
0055 es ROUT IN=RMSKNOWNF ILE 3 modify system refcnts et.al. 
51 8E&€ DO 0064 7 MOVL (SP)+,R1 3 recover status 
0D 50 6€9 0067 74 BLBC RO, 308 ; can't access this file 
50 =—(51 9 06A 75 MOVL R1,R0 3 set appropriate success code 
010331 060 76 BRW RMSCREATEXIT : exit from open immediately 
3) ke ; if found/open or error 
3S fi hi 228: BRB 1008 ; helper branch 
07 1; 
07 ; Couldn't find this file spec as a known file, 
07 3 try to get another if searchlist is present 
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nite PEN = SOPEN ROUTINE ae at 1 Opi3ei7) FMS SRCJRMS OPEN.MAR;1 ° 
7 4; 
7 5 53: RMSERR FNF 3 setup appropriate error in RO 
35 6A 38 4 7 § O$: BBC #FWASV_SLPRESENT, (R10) ,100$ ; if no searchlist do normal open 
O1ED 78 BSBw RMSCHK_SLIST ; try again 
AG 50 OE 4: 8 BLBS RO,20 3; did it work? 
1B 51 4 BLBC ; should we try again? 
FF79° 30 0084 90 BSBW RMSDEALLOCATE_FWA 3 release exhausted searchlist 
087 91 CSB #FABSV_KFO+FOP, (RB) ; Make sure not KFO again 
86 11 0088 3 BES RMSOPER_ALT 3 try for non-KFO open 
ORD 304 | 
a08p 95 ; ey to open the knownfile normally; if this fails, then go thru the known 
08D 38 ; file searchlist lookup logic 
$08p 308 | 
008D 99 40S: SSB #F ABSV_NAM+F OP, (R8) : Force NAM block open with FID 
FF6C* 30 0091 400 BSBW RMSSETBID ; process the directory i 
EO 50 4 0094 401 BLBC RO, 30$ 3; check search List on error 
FF66" 30 0097 40¢ BSBW = RMSACCESS : access the file 
DA 50 E—9 QOO9A 40 BLBC z cneck search List on error 
Te 0090 404 BRB RMSOPEN_CIF > continue with open 
0093 31 OO9F 406 60S: BRwW ERROR 3 no, return error 
boas 608 
O0A 409 : There was a problem with the file spec, try to get another if search List 
O0A 410 ; are present | 
vars 
5A DS OOA 418 50$: TSTL R10 ; have a FWA? 
F9 «13 «OOAS) = 6414 BEQL 60$ : if not don't check it 
FS 6A 38 4 OOA6 415 BBC #FWASV_SLPRESENT, (R10) ,60$ ; if no search List exit 
O1BE 0 OOAA 416 BSBW RMSCHK_SLIST 3; try again 
EF 50 =€9 aie] rt 4 BLBC RO,60$ 3 did it work? 
FF4D" 30 006 419 100$: BSBW RMSSETDID 3; process the directory id 
EC 50 FP 008 420 BLBC R : check search List on error 
FF47* 30 00B6 421 BSBW = RMSACCESS > access the file | 
—&6 50 =~€E9 Boe? : ¢ BLBC RO,50$ : check search List on error | 
00BC 424; 
O0OBC 425 ; Return point for create turned into open via ‘cif’ bit. 
bone | 457 | 
bone 428 RMSOPEN_CIF:: 
76 50 +4 00BC 429 BLBC RO, ERROR 3 exit on error 
FF3E" 30 o0BF 430 BSBW 3s RMSFILLNAM : fill in nam block 
70 50 =««E9 ote $3! BLBC RO,ERROR 3; exit on error 
oes 38 | 
oC) 4 4 ; Copy the DID from the NAM block into the FIB if this is an OPEN by FID | 
OCS 436° | 
19 68 38 E1 0c5 4 $ BBC #FABSV_NAM+FOP, (R8) ,5$ ; skip if not open with FID 
5 D5 0C9 438 TSTL R7 : have a NAM block (from RMSFILLNAM) | 
15 13 00CB 439 BEQL 5$ : ce la vie’ | 
51 14 AA D0 O0CD 440 MOVL FWASQ_FIB+4(R10),R1 ; get addr of FIB 
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V MSSOPEN = SOPEN ROUTINE -SEP-1984 16:25:12 CRMS.SRCIRMSOOPEN.MAR; 1 (4) | 
OF 1 by 44] BEQL «S$ ; no FIB, no DID 
OA Al 8B D 44 TSTW Ei8su_ DID(R1) : have a DID? 
OA 1 + 44 BNEQ 5 ; continue if so 
OA Al AA? D 0D 444 MOVL NAM$W_DID(R7) ,F 1B$W a He ; copy DID 
OF Al 2E a7 2B OD ig MOVW = NAMSWIDID+4(R7),FIBSW_DID+4(R1) ; copy DID last word | 
OF2 447; | 
OE2 448 ; Make sure eof info is in ‘eof blk + 1, 0 offset’ form. | 
OOE 449 e } 
BoE 450 : 
5C AY Bi OOE 451 5$ CMPW IFBSW_FFB(R9) ,- ; is last block full? 
48 A9 OE 43¢ JF BSL _DEVBUFS1Z(R9) 
06 1F OOE 45 BLSSU 0$ 3; branch if not 
74 A9 D6 OQOED 454 INCL IF 8$L_EBK(R9) ; bump eof block 
5C Ao «=6B4 SCOOOEC Oe «455 CLRW IF BSW FFBC(RI) 3; and zero offset 
7369 3& €0 goer $38 10$: BBS #I1FBSU_DAP,(R9) ,DAPRTN : branch if network operation 
OOF 458 ; 
OOF 459 ; Dispatch to organization-dependent open code. 
Seige 
69 ee E1 Bae re BBC #DEVSV_SQD,IFBSL_PRIM_DEV(R9),- ; branch if not magtape 
69 i3 E1 aor? reg BBC ped bee MNT, IFBSL_PRIM_DEV(R9),=- ; error, if magtape not mounted 
69 i E0 Bore 188 BBS eevee _DMT, IFBSL_PRIM_DEV(R9),- ; error, if magtape marked for dismo 
OOFF 468 20$: CASE fy YPESB .7 3; pick up correct routine 
OOF F 469 SRC=1FBS$B ORGCASE (RY) , = 
OOF F 470 DISPLIST=<RMSOPEN1 ,RM *OPEN2 _BR,RMSOPEN3> 


RMS 


H 
RMS N DISPATCH FOR OPEN OPERATION 16-SEP-1984 01:24:41 VAX/VMS Macro v04-00 Page 11 
nba RMSSOPEN = SOPEN ROUTINE oe et 9 6:58:42 RMS.SRCJRMSOOPEN.MAR; 1 . (6) 
10A 128 
10A 475 ;+4¢4 
10A 474; 
10A 475 ; Error returns 
10A 278 : 
100 ae 
19h 138 : 
+ rt ; Unknown file organizatior. - verify bio (or bro) accessed. 
S10A 4 ; 
Bi9e 4 RMSERR 4 G ; org not supported 
60 8F 93 O10F 484 BITB #F ABSM_BIO!FABSM_BRO,- ; either bio or bro set? 
22 AD 0112 ret IF BSB. FAC(R9) 
1F 613 «60116 GG $ BEQL ERR 3; branch if not (error) 
B18 48 RMSSUC 
0038 31 Bie rt +3 BRw RMSCOPRIN ; all finished open 
011C 490 RM_OPEN2_BR: 
OO0O00000'EF 17 p13 $31 JMP RMSOPEN2 3 branch aid 
01 ; 493 ERRRFM: RMSERR REM ; bad rfm field 
0c 11. +01 494 BRB ERROR 
0129 495 
0129 496 ERRDNR: RMSERR DNR ; device not mounted 
05 11 Bt f rts BRB ERROR 
Oi ee 344 ERRIRC: RMSERR IRC : illegal fixed record size 
EE 501 ERROR: CSB #IFBSV_ACCESSED, (R9) : don't write file attributes 
23 a9 9¢ 91 0139 206 CMPB #1FBSC_ IDX, 1FBSB_ ORGCASE(R9) 3; indexed file? 
1 12 0130 50 BNEQ > branch if not...clean up 
OE 69 3E £0 O13F 504 BBS #IFBSV_DAP,(R9) ,5$ > branch if network operation 
50 DD 0143 £505 PUSHL RO : push error code on stack 
SA 59 D0 0145 506 MOVL R9,R10 ; RMSCLOSES expects IFAB in R10 
Q0000000'GF 16 0148 507 JSB G*RMSCLOSES ; close indexed file 
50 BEDO O14E 508 POPL 3 pop error code from stack 
FEAC’ 31 0151 509 5$: BRW RMSCLSCU ; clean up and return 


FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 
FAB 


iti,” CEES chtecatcint their & SNS OS aS, Se 


A : 
4C AY 62 A9 BO MOVW IFBSW_DEQ(R9) ,IFBSW_RTDEQ(R9)  ; otherwise pick up deq 


| RAS N DISPATCH FOR OPEN OPERATION 16-SEP-1984 01:24:41 AX/VMS Macr 04-00 Page 1 
staat RMSSOPEN = SOPEN ROUTINE g- saat y 6:58:42 Lams SRCIRMS OFEN.MAR; 1 . 18) 
4 
4 ; Return here from org-dependent routines. 
4 oO 
4 RMSCOPRIN:: 
DE 20 £9 4 BLBC RO,ERROR 
0B 69 —E €0 BBS #1FBSV_DAP,(R9) ,DAPRTN 3; branch if network operation 
58 3 
35 ; Now handle summary, allocation, and key xab's. 
B a 
5C FEA CF 43 58 MOVAB RMSXABOPN_ARGS,AP ; move addr of xab table to ap 
FE9D' 3 69 BSBW RMS$XAB_SCAN 3 scan the xab chain 
cr 50 =so#EO o BLBC RO, ERROR 3 get out on error | 
66 : | 
oe ; Override run-time deq with user value, if any. 
66 : | 
4C AD 14 AB BO 0166 DAPRTN: MOVW  FABSW_DEQ(R8), IFBSW_RTDEQ(R9) | 
0 12 68 BNEQ branch if speced | 


: 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
> 
5 
5 
5 
5 
5 
5 
5 
; 
5 
; 


From file header. 
14 AB 6209 BO MOVW IFB$W_DEQ(R9),FABSW_DEQ(R8) —; and put in fab 
; Return bdb and i/o buffer to free space and page Lists. 


| 
5$: BBC #1FBSV AT. 1FBSB_JNLFLG(R9),7$ ; skip if not AT journal ing | 
| 
| 


03 00AO0 C9 04 4 
0231 0 BSBW WRITE_AT_J 3; write AT record - eat any error 
FE7D' 30 7$: BSBW RMSRECEASALL 3 return bdb and buffer 
: Validate rfm. 
ASSUME IFBSV_RFM EQ 0 | 
ASSUME IFBSS~RFM EQ 4 | 
j 
50 AD «= FO BF SBA BICB2 #*XF0O,1FBSB_RFMORG(R9) ; leave only rfm in rfmorg 
: Check for rfm in supported range. | 
06 $e A9 = 05 69 BBS #1FBSV_BIO, IFBSB_FAC(R9) ,10$ ; don't check if bio 
6 SOAD 91 CMPB  —sIFB$B_RFMORG(R9) AF ABSC_MAXRFM | 
8F 1A BGTRU  ERRRFA 


DPDRAEDPDP DAA DAs Be Be BBE EE ANNI NIN NIIP PIPONINIIY 2 PP OOO OO 
NOUS AR @ SO OONA UNE WN 0 OD NAMES WN 0 OD NOAU FW 0 ODN EW SO OONO UE wr 
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J 7 
enpones DISPATCH FOR OPEN OPERATION 16-SEP-1984 rat 4:41 AX/VMS Macro V04-00 Page 13 
v04 RMSSOPEN = SOPEN ROUTINE -SEP-1984 16:25:12 RMS .SRCIJRMSOOPEN.MAR; 1 (8) 
1 68 : ; if fixed Longeh record format, then set mrs from Irl in case this 
1 § ; is an fcs-11 file. 
193 5 : 
01 SOAD 91 19 ye 10$ CMPB jrese. RFMORG(R9) ,AFABSC_FIX 3; fixed len rec? 
--) 7 19 7 BNEQ 0$ : branch if not 
60 A9 S52 A9 8B 199 74 MOVW IFBSW_LRL(R9) , IFBSW_MRS(RI) 3 set record length 
90 1 19 75 BLEQ ERRIRC : branch if invalid 
hae 
1A0 78 : force stream format files to appear to have RAT non-null, 
1% 0 3 even if they don't. 
01A0 581 * ASSUME FABSC_STM LT FABSC_STMLF 
Bie Ht ASSUME FABSC— STM LT FABSC— _STMCR 
06 50A9 91 O1A0 84 20S: CMPB IFBSB_RFMORG(R9) ,AFABSC_STM $ screcs format? 
OA 1F O1A4 52 BLSSU RMSCOPRTN1 3; nope 
07 93 O1A6 586 BITB OCF ABSH CR! FABSM_F TN! FABSM_PRN>,= 
51 a9 O1A8 587 IFB$B_RAT(R9) 3 carriage control already set? 
04 12 O1AA 588 BNEQ RMSCOPRTN1 3 Ok 
51 a9 02 88 O1AC 589 BISB2 #FABSM_CR,IFBSB_RAT(R9) s Sores RAT=CR 


— SO TO ---——--—-—— a — coo 


K 7 
RMSOOPEN DISPATCH FOR OPEN OPERATION 16-SEP-1984 01:24:41 VAX/VMS Macro v04-00 Page 14 **F] 
tae RMSSOPEN = SOPEN ROUTINE g- SET bbe oR; 5:12 CRMS.SRCIRMSOOPEN.MAR; 1 . aid 
18 wi 3 
i 3 3; Return point for indirect open of process permanent file. 
18 9%: 
18 95 ; Set the rfm, rat, org, and mrs fields into the fab. 
1B0 897 | 
1B 98 RMSCOPRIN1:: 
1F AB 39 Ag 4 18 99 MOVB IFBSB_RFMORG(R9) ,FABSB_RFM(R8) ; set rfm 
16 AB «051 AQ 183 690 MOVB =IFBSB-RAT(R9) ,FABSB_RAT (RB) : set rat 
1BA 602 ; 
veh 858 3; Return point for indirect open of process permanent file and rfm and 
1BA 604 ; rat already set. 
1BA 806 
1BA $09 RMSCOPRTN2:: 
23 Ad «6 FO) «CO1BA ss 608 INSV IFB$B_ORGCASE(R9) ,- 3; set org 
04 18D 609 #FABSU_ORG, AFABSS, ORG, - | 
1D A8 18F 610 FABSB_ORG(R8) 
03 69 38 €1 Bice et) BBC #IFBSU_SEQFIL,(R9),10$ 3; branch if not seq file shr'd 
O13 ei$ ASSUME FABSC_SEQ EQ 0 
1D AB 94 b1E8 615 CLRB F ABSB_ORG(R8) ; this is really a sequential file. 
gice 918 : Orgcase says relative when shared 
36 AB 4660 AD «BO OCO*OTC 617 10$: MOVW IFBSW_MRS(R9) ,FABSW_MRS(R8) 3; set mrs 
48 AB 64 A9 BO bic8 o18 MOVW IFBSW_GBC(R9) ,F ABSW_GBC(R8) 3; set gbc 
1D 620 ; 
O1p 631 : If vfc record format, check for 0 fixed header size and if 
1D 6 ¢ : found make it 2 bytes. 
oI 3 ®. 
03 SO AD 91 O1p 625 CMPB JFBSB_RFMORG(R9) ,#FABSC_VFC 
08 i 106 626 BNEQ 0$ z omit check if not vfc 
SF AD «8695 «#0108 8 627 TSTB FBSB_FSZ(R9) ; check for default 
09 12 #O1DB 628 BNEQ : branch if value specified 
SF AQ 8 90 O1DD 629 MOVB #2, 1FBSB_FSZ(R9) ; set default value 
0 11 itt 630 BRB 3 continue 
SF AD 94 O1E3 631 208: CLRB IFBSB_FSZ(R9) i guarantee 0 fsz for non-vfc rfm 
O1E6 O36 ; (note: fixes rms-11 bug of fsz=2) 
O1E6 633 308: RMSSUC 3; inidcate successful open 


RMSOOPEN DISPATCH FOR OPEN OPERATION 16-SEP-1984 01:24:41 VAX/VMS Macro V04-00 Page 15 RMS 
voe=000 RMSSOPEN = SOPEN ROUTINE BEp= 1986 lorssite EAMG SRCIRNS OPEN.MAR; 1 . (11) | Tab 
169 635 
149 6 § i++ 
1E9 637 ; | 
169 «6 § ; Common exit for $create and Sopen. 
1E9 «6639 ; 
1E9 640 ;-- 
1E9 = 641 
1E9 236 CREOPEN_EXIT: 
03 50 gS 1E9 64 BLBS ; branch if no error 
FF46 1 Q1EC 644 18: BRW ERROR : otherwise go to exit on error 
O1EF 645 
pier 966 3 
1EF 647 ; Save the various close option bits in ifab 
OIEF 648 ; 
O1EF 649 
O1EF 650 2$: CSB #IFBSV_CREATE, (R9) : clear the “doing create’ bit 
1¢ 69 22 «£0 bie3 $3) BBS #IFSSV_PPF_IMAGE,(R9) ,5$ ; don't save options if indirect 
01F7 83 ASSUME FABSV_RWC+1 EQ FABSV_DMO 
O1F7 654 ASSUME FABSV_DMO+1 EQ FABSV_SPL 
O1F7 655 ASSUME FAB$V_SPL+1 EQ FABSV_SCF 
git? $28 ASSUME FABSV_ ack e EQ FABSV_DLT 
51 68 OS 2B EF Bier 028 EXTZV #FABSV_RWC+FOP,45,(R8),R1 ; get option bits 
aire $89 ASSUME IFBSV_RWC+1 EQ IFBSV_DMO 
O1FC 236 ASSUME IFBSV_SPL+1 EQ IFBSV_SCF 
pire oe? ASSUME IFBS$V_SCF+1 EQ IFBSV_DLT 
69 05 27 51 #+FO OFC 665 INSV R1,#IFBSV_RWC 45, (R9) ; and save them 
0201 666 
0201 667 ; ? ‘ 
0201 668 ; If this is foreign magtape, rewind the tape if rwo is set. 
gH 
OE 69 18 €1 0201 671 BBC #DEVSV_FOR, IFBSL_PRIM_DEV(R9),5$; branch if not foreign 
OA 69 O05 €1 0205 67 BBC #DEVS$V_SQD, IFBSL-PRIM_DEV(R9),5$; or if not mogtape 
06 68 27 5 3609 67 BBC #F ABSV-RWO+FOP, (RB) , 5S ; or if rwo not speced 
FDFO" 30 0D 674 BSBW RMSREWIND_MT ; rewind the tape 
d9 50—s«éE9 031 o7? BLBC RO,1$ 3; branch on error 
6 1 $79 ; 
1 978 ; Set ‘blk* bit in ifab for magtape. 
13 680° 
04 69 05 + 1 681 5$: BBC #DEVSV_SQD, IFBSL_PRIM_DEV(R9),8$; branch if not ma tape 
51 Ad = 08 8 iz ons BISB2 #FABSM_BLK,IFBSB_RAT(R9) 3 set no spanning 
1B 684 ; 
6 18 ess ; Set the fsz, bks, stv, alq, dev, and sdc fields into fab. 
1B Gar 
. = 5F AQ =: 90 1 6 $Z7(R8) ; set fsz 
EA AS 69 5€ 0 90 6 KS(R8) : set bks 
690 : branch not seq file shared 
9 691 ; always zero for seq file 


“a 7 
FOR OPEN OPERATION 16-SEP-1984 01:24:4 AX/VMS Macro V04-00 
= SOPEN ROUTINE 35-1982 94:38:73 ERMS. SRCIRMS OPEN.MAR; 1 


15.08 F009 BO 


ATCH 
OPEN 
f 636 9$: MOVW IFBSW_CHNL(R9) ,FABSL_STV(RB) ; set stv to chan # 
633 MOVL IFBSL- BK IRS) FABSL “RLQ(RB) i set alq 
695 ; 
? o3 ; Move device characteristics bits into the fab. 
6 698° 
FoC7" 30 9 3 $33 BSBW RMSRET_DEV_CHAR ; set DEV and SDC fields 
9 701; 
§ 4 70¢ : Check for user file open option. 
ey. | 
03 68 31 9 6 9 705 20$: BBS #FABSV_UFO+FOP, (R8) ,40$ : branch if ufo option 
FDCO' 023D 706 BRW RMSEXRAS 3; return to user 
o668 707 
0240 708 ; 
Bse8 709 ; Leave file open for user but remove ifab 
0240 710; (no further rms operations available on this file). 
0240 711; 
0240 ay: 
FDBD’ 31 0240 713 40$: BRW RMSRETIFB 


RMS 


<2 | 
| 
| 


on 
o 


N 7 
N OPERATION 1973 E1382 01 :g9:4] yneves Macro V04-00 Page 17 
ROUTINE SEP-1984 16:25:12 CRMS.SRCIRMSOOPEN.MAR; 1 (13) 


FS 

z 
Do 
ze 
num 
eu 
o,r 
wv- 
mao 
z2=z 


RMS( 
V04- 


Common create clean up and exit 
Return all bdb's and buffers to free space list, causing unlock if locked. 


MSCREATEXIT:: 
50 DD PUSHL 


RO ; Save status code 
: Entry point with status already pushed on the stack. 


RMSCREATEXIT1:: 
BBC 


03 00A0 C9 04 1 #IFBSV_AT, IFBSB_JNLFLG(R9),10$ ; skip if_not AT journaling 
0163 0 BSBW WRITE_AT_JNL 3; write AT record - eat any error 
FDAF' 30 10$: BSBW RMSRECEASALL ; release all bdb's 
50 8ED0 POPL R ; restore status 
FF92 = 31 BRW CREOPEN_EXIT ; join open finish up code 


POPOPOPOPOMO FINO PORONONOMIPONOPONIFURIFOFORIND 
Se SS SS eee eS SS 


NBM DW NMA UU AAAI AAAI 
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OPEN OPERATION 16-SEP-1984 01:24:41 VYAX/VMS Macro V04-00 Page 18 | RMS( 
- Process the searclist loo 5=SEP-1984 16:25:12 (CRMS.SRCJRMSOOPEN.MAR; 1 (14) v04: 


«SUBTITLE RMSCHK_SLIST = Process the searclist loop 


RMSOOPEN DIS 
vOu-000 RMS 


rc 
-_—w 
“Oo 
42 


These routines are called when a file access failed and a a csi 
is present. It evaluates whether the error allows the Uist 
continue and updates the List to the next searchlist Siecsaas 


RMSCHK_SLIST - Normal file access failures can continue 
RMSCHK_SLIST1 - File access failures that create-if can continue 


Inputs: 
RO - failure status of previous access operation. 


Outputs: 
RO - success/fail 
if searchlist is ee ay status is previous access status.) 
R1 - undefined if RO = su 
if RO = fail, success “it “precessing may continue, failure otherwise 


DDD DDD Ss i EEE 
MEW O OONAUES WN OC OONOUS WhO” 


SSN 


: Errors that searchlist processing should continue from 


RMSSLIST_ERRS:: 
RMSERR_ WORD DEV 


Implicit inputs: 
R11 - saee ure ptr 
R10 - FWA ptr 
R9 = IFB ptr 
R&8 - FAB ptr 
Implicit outputs 
e2 FWA and IF 8 fields modified 
Saved stack: 
768 ERR(SP) => RO error code 
769 STV(SP) => FABSL_STV(R8) 
770 FNB(SP) => NAMSL _F 
771 RSL(SP) => NAM$B_RSL 
a ESL(SP) => NAM$B_ESL 
774 ;:-- 
, 
f 3; Stack offsets for saved context 
7 a 
00000000 780 ESL = 0 3 NAM$B_ESL 
00000001 781 RSL = 1 ; NAM$B_RSL 
00000004 782 FNB = 4 : NAMS$L_FNB 
00000008 783 STV = 8 : FABSL_STV 
0000000C 784 ERR = 12 3 RO 
00000010 f STACK_SIZE = 16 : Size of stack to allocate 
7 
7 
7 
7 
7 
7 


; invalid device name 
; directory not found 
; device not ready 

; file not found 
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POPIPIPIPYNINOAININININYDNININPINYIPYINIPININPINININININININININININININININNPoNoNoNonononononopopofpornyorofrorofpofponysey ft 
90 OLS SSS 
a | 
oa 
™N 


T 
K 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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0 
0 
0 
0 
0 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 


795 RMSERR_WORD FNF 


; 


RMSOOPEN DISPATCH FOR OPEN OPERATION 16-SEP=-1 4:41 AX/VMS Macro V04-00 Page 
vor-008 RMSCHK_SLIST = Process the searclist loo 5-SEP=-19 3B % 58:43 RMS .SRCIRMSOOPEN.MAR; 1 . 
O25F 79 RMSERR_WORD 3; no more files found 
0000000A 61 135 RMSSLIST_ERR_CAT1 == /“RMSSLIST_ERRS 
61 £38 RMSERR_WORD ACC ; ACP file access error 
6 79 BASE RR WORD FND ; ACP file lookup error 
6 00 RMSERR- WORD PRV 3 privilege violation 
00000010 of 4 RMSSLIST_ERR_ cRT == .-RMSSLIST_ERRS 
8 67 308 RMSCHK_SLIST1:: 
05 oD 67 804 PUSHL S*#<RMSSLIST_ERR_CNT1/2> ; get number of errs to check 
02 11 0269 805 BRB CHK_SLIST ; and check 
0268 806 
8 68 4 RMSCHK_SLIST:: 
08 ODD 8 oe 83 PUSHL S*#<RMSSLIST_ERR_CNT/2> ; get number of errs to check 
036 810 CHK_SLIST: 
51 6€ DO O26D 811 MOVL (SP) RI ; get count 
EO AF41 50 Bi 0270 aig 108: CMPW RO,B“RMSSLIST_ERRS-2CR1] 3; continue from this err? 
OF 12 0275 81 BNEQ © 40$ ; nope 
14 10 Q277 814 BSBB $_LOOP 3; try next element 
0350 €8 0279 815 BLBS RO,30$ 3; got a good one 
FEE 51 €9 O27C 816 BLBC R1,CHK_SLIST ; get any kind of element? 
51 01 DO O27F 817 30$: MOVL 1,R1 ; processing can continue 
5E 04 CO Osee 818 ADDL2 #4,SP ; discard count 

05 028 819 RSB 3 return 

0286 820 
E7 51 F5 0286 821 40$ SOBGTR R1,10$ ; try another 
SE 4 CO 0289 822 ADDL2 #4,SP ; discard count ; 

05 O28C 823 RSB ; return don't continue and 
ogee bse ; previous input status 
028D 826 S_LOOP: SSB #FWASV_SL_PASS, (R10) ; flag search List pass 

50 DD 0291 827 PUSHL 0 3 save error status 
OC AB DD 0293 828 PUSHL FABSL_STV(R8) ; Save stv secondary code 
7E 7C 0296 829 CLRQ -(SP : room for NAM block data 
57 28 A8 DO 0298 830 MOVL FABSL_NAM(R8) ,R7 3; get nam address 
26 «6135 «(029C~—C831 BEQL 22$ ; branch if none 
FDOSF® 30 O29E 832 BSBW RMSCHKNAM ; check nam validity 
2050 €9 Q2A1 833 BLBC RO,2 ; branch if {Llegal- (no error) 
04 AE 34 A7 DO O2A4 834 MOVL NAMSL_FNB(R7) ,FNB(SP) : save file name status 
34 AZ? D4 Q2A9 835 CLRL NAMS$L_FNB(R7) ; clear file name status 
01 AE O3 A? 90 O2AC 836 MOVB NAM$B_RSL(R7) ,RSL(SP) ; save result string 
03 A? 94 028i 837 CLRB NAM$B_RSL(R7) ; clear size 
6— O68 A? 90 0284 838 MOVB NAM$B_ESL(R7) ,ESL(SP) ; and expanded string 
OB AZ 94 nse 839 CLRB NAM$B_ESL(R7) :; clear size 
14 AZ 94 bSee aay CLRB NAM$T_DVI(R7) ; clear device ID 
OSBE Heh ASSUME NAM$W_DID EQ NAMSW_FID+6 
24 A7 7C OQO2BE 44 CLRQ NAM$W_FID(R7) ; and file ID's 
2C AZ? 4 i 22 CLRL NAM$W"DID+2(R7) $ 
03 69 ¢2 5 C4 47 22$: BBCC #IFBSV_ACCESSED, (R9) ,25$ ; deaccess A a open file or 
FD35° 0 C8 48 BSBW RMSDEATCESS 3; network | 
CB 49 25$: SDASSGN_S CH ins IFBSW_CHNL (R9) ; deassign old channel 
20 A9 § D6 620 CLRW “~IFBSW_CHNL(R9) ; clear 
FD24" 0 D9 51 BSBW RMSPRFLNMALT 3; try agai 
04 50 =€8 DC =: B52 BLBS RO,30$ ; try next yee 


DISPATCH FOR OP 
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RAS N E 
Foe b08 Process the searclist loo 5-SEP-1984 16 


TS Fe 
BEQL ays 
#STACK_SIZE,SP 


Ww 
oO 
wn 


—WNow" 


SE 


; XPFN exited with RMSS_NOMLIST, no more search 
; the original error code and name block string 


"OOOO TTT VMMMMMmMmMmmmmmmrrn 
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ovovo Toro oonNw— oOo onuo-o 
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FABSL_NAM(RB) ,R7 
BEQL = 42 

BSBW = RMSCHKNAM 

BLBC = RO, 42 

MOVB  ESL(SP),NAM$B_ESL(R7) 

MOVB  RSL(SP)NAMSB-RSL(R7) 

MOVL. FNB(SP),NAMSL~FNB(R7) 
42$ ADDL2 4#8,SP 

MOVL (SP)+,FABSL_STV(R8) 

MOVL  (SP)+,RO 

MOVL #1,R1 

RSB 


AX/VMS Macro v04-00 


dD 8 
N OPERATION "Pe Sep-1986 16:98:12 ERMS SRCTRMSOOPEN AAR; 1 


; end of list? 

i no, so return the error 
; found an element 

; discard saved context 


list to parse, so restore 
Lengths 


et nam address 

ranch if none 
check nam validity 
branch if illegal (no error) 
restore expanded string 
and result string 
restore file name flags 
discard NAM space 
set stv secondary code 
restore error status 
er encountered 
eX 


Sete Se Se Se Se Se Be Be Se Be Se 


roe Ot, 


RMS/ 
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DISPATCH FOR OPEN OPERATION 138¢ oy: 4:41 AX/VMS Macro V04-00 
RMSKNOWNFILE = Kernel Mode Known FILE su ~RER=4 6:25:12 CRMS.SRCIRMSOOPEN.MAR; 1 
1} 78 a SUBTITLE RMSKNOWNFILE = Kernel Mode Known FILE Support 
11 79 : 
11 0; This routine is called, in kernel mode, when an open known file 
1 1 3 is found. The following operations are performed: 
11 : ; 1. Check the volume and file protection to see if the user 
0311 4 ; as access to the file. 
0311 82 3 2. If the user has read access in addition to execute, 
8 11 $ : report that fact as well. 
11 87 ; 3. Increment the refcnt on the shared file 
8 1 se 3 window and to set the channel appropriately. 
0311 90 ; These operations must be interlocked against process deletion 
7 4 : by executing at IPL 2. 
0311 3 3; Inputs: 
ci i 
0311 896 ; Outputs: 
0311 344 : RO = SS$_NORMAL if access aliowed 
: N V access denie 
bai 4 $S$_ OPRIV if d d 
0311 900 ; Implicit inputs: 
0311 901; R11 - impure ptr 
0311 O08 3 R10 - FWA ptr 
0311 903; R9 - IFB ptr 
eee se 
0311 906 ; Implicit outputs: 
0311 907; channel and window control blocks modified. 
0311 908; 
O31] 10 
0311 911 ASSUME CHPCTLSL_ACCESS EQ ? 
0311 alg ASSUME CHPCTLSL_ FLAGS EQ 4 
U H L 
bai giz ASSUME CHPCTL$B~ MODE EQ 8 
0311 915 RMSKNOWNFILE:: 
003c 0311 916 -WORD “M<R2,R3,R4,R5> ; save registers 
00 dd 0313 917 PUSHL null access mode for volume 
05 DD 0315 918 PUSHL #<CHPCTLSM_READ! CHPCTLSM_ USEREADALL> ; set CHPCTL flags 
01 DD 0317 919 PUSHL #ARMSM_READ ; set CHPCTL access 
26 3 DO B31? 920 MOVL $ : point to CHPCTL 
07 6 £1 O31C 921 BBC #IFBSV_WRTACC, (RO) .10$ ; write access? 
62 02 C8 03 g ¢ BISL #ARMSM WRITE, CHPCTLSL_ACCESS(R2); ee for it too 
06 CC 03 9 XORL2  #<CHPCTLSM_ WRITE! CHPCTLSM_USERE ADAL 
04 A2 03 924 CHPCTLSL_FCAGS(R2) : oat “WRITE and clear USEREADALL 
0327 925 10$: SETIPL fipbe-ceneas : prevent process deletion 
50 18 A8& dO 8 A 3 § MOVL FABSL_CTX(R8),R $ je: KFE 
55 18 AO 00 MOVL KFESL~WCB(RO).R : get WCB 
54 00000000 ' 9F D0 0 928 MOVL a*CTLSGL PCB, R4 s get oe addr 
53 D4 8 929 CLRL R3 ; no CHPRET 
B98 
8 4 4 § 3 Check the volume protection in the UCB. 
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PATCH 
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B 934 
1 as oO 35 935 MOVL WCBSL_ORGUCB(RS5) ,R1 : get UCB 
1 1C Al 0 F i] § MOVL UCBSL_ORB(R1),R1 ; get ORB addr 
44.99 C4 9) rt 5 MOVL PCBSL_ARB(R4),RO ; get ARB addr 
00000 ‘gf 18 4 9 } JSB GAEXESCHKPRO_ INT ; check for volume access 
2. ge rt Q BLBC RO,100$ ; give up if no access 
1 3H 
8 1 ac$ ; Now see if the user has requested access (READ implies EXECUTE) 
8 51 944 
oA AQ =s«@9°0 8 51 945 MOVB IFBSB_MODE(RI),- 
8 ne 54 946 CHPCTC$B_MODE (R2) ; set CHPCTL access mode 
51 18 A DO 0356 94 OVL WCBSL_ FCB(RS) ,R1 ; get FCB 
38 Al DD 035A 948 PUSHL FCBSL~FILESIZE(R1) > Save high block for ifb 
8 Al D ba20 949 MOVAL FCBSR_ ms tte ; get ORB addr 
50 O08C C4 D 0361 950 MOVL PCBSL_ARB(R4) ,RO 3; get ARB addr 
00000000'GF 16 0366 951 JSB GFEREECHRPRO_ INT : check for read access 
06 50 9 036C 33¢ BLBC 0,20$ : nope 
16 AB sf 8 0 of 95 B1SB2 #FABSM_ GET, FABSB_FAC(R8) ; tell user if so 
2 11 0373 954 Bee 30$ 3 and continue 
0375 955 
0375 956; 
0375 957 ; See if the user has execute-only access 
Sire gee 
33 22 a9 O07 €1 0375 960 208: BBC #FABSV_EXE rece. pas (AP). 100$ ; execute access? 
2F 69 30 £0 O37A 961 BBS #IFBSV-WRTACC, (RO), 100$ > no special check if write 
02 OAAD 91 O37E % CMPB IFBSB VAODE CRS, paige _SUPER ; can he ask for exe access? 
29 «1A «(03820 = 96 BGTRU 100$ 3 nope 
04 DO 0384 964 MOVL #ARMSM_EXECUTE,- 
og 0386 965 CHPCTLSL_ACCESS(R2) 3 try ezecutenenty access | 
50 008c¢ DO 0387 966 MOVL sth ARB(R4) ,RO ; get ARB addr 
eoceaee | Gr 16 038C 967 JSB G*EXESCHKPRO, iNT : check for execute access 
18 50 §? bae8 968 BLBC R $ 3; nope, then return failure 
50 20 A9 3C 0395 969 30S:  MOVZUL ir ésu CHNL (RO) « jR0 ; get Channel number 
00000000'GF 16 0399 970 JSB G*10CSvE ; R1 contains CCB address 
04 Al 55 DO O39F 971 MOVL R5,C CBSE RUIND CRT ; store WCB eeerecs va ccB 
OE AS B6 O3A3 97 INCW WCBSW_REFCNT(RS) 3 and count this 
70 A9 «= 6E)=—siss«C3AGsC97 MOVL (SP) TFBS _HBK (RY) ; stuff high block Tate ifb 
50 01 DO O3AA 97% MOVL #1, RO > success! 
O3AD 975 100$: SETIPL #0 3: restore IPL 
04 0380 $76 RET 


6 8 
CH FOR OPEN OPERATION 16-SEP-19 4:41 VAX/VMS Macro v04-00 Page 23 | RMS( 
AT_JNL = Local Subroutine met 7 or $e: :12 YRS. SRCIRM SOOPEN. MAR; 1 . fa | v04: 
B1 378 -SUBTITLE WRITE_AT_JNL = Local Subroutine | 
B1 7 3+ | 
4 a8) ; WRITE_AT_JNL 
Bl 9 g ; This routine calls MAPJNL to write the AT journal buffer for file 
4 $84 ; related information, if necessary. | 
1 985 ; Inputs: 
B1 aa9 3 
8 Bi 987; r9 ifab 
Bi 988; 
8 B81 989 ; Outputs: 
Bi 8990 ; ° 
0381 991; r0 success or failure 
0381 992; 
0381 993 ;-- 
0381 994 
0381 995 WRITE_AT_JNL: 
0381 996 
54 OOA4 C9 09 0381 997 MOVL pest. RJB(RI) ,R4 ‘ get the RJB address | 
1 13 0386 998 BEQL 0$ turn to caller if none 
17 QA AG, 03 G1 0388 999 BBC = #RJBSV_AT ,RJBSW_ FLAGS(RGS, 508; return if not AT | 
55 OA A4 C Q03B8D 1000 MOVZWL RJBSW_ FLAGS(R4) RS save ‘lags so we can turn everything 
03C1 1001 ; off but AT for this MAPJNL cal it 
03C1 1008 (Al, BI, RU written earlier) 
OA AG «6008)~=— BO CO02C1 «100 MOVW #RIBSM_AT,RJBSW_FLAGS(R4S ; could have used a BICW with 
03C5 1004 ; complement operator, but this is easier 
QO000000'EF 16 O03C5 1005 JSB RMSMAPJNL ; write the AT buffer 
4 O00A4 C9 DO O03CB 1006 MOVL IFBSL_RJB(R9) ,R4 : get the RJB address MAPJNL destroyed 
55 B80 0300 1007 MOVW RS, RIBSH FLAGS (R4) ; festore original flags 
05 0304 1008 50$: RSB 3: return to caller | 
0305 1009 
0305 1010 END 
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RMSPRFLNMALT 
RMSRELEASALL 
RMSRETIFB 
RMSRET_DEV_CHAR 
RMSREWIND_AT 

TDl 

LIST_ERRS 

RASSLISTTERR-ENTI 
RMSXABOPR_ARGS 
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RMSS_RFM 
RM_OPENZ_BR 


STACK_SIZE 
STV 


SYSSCMKRNL 
SYSSDASSGN 
5 _LOOP 

TPTSL_OPEN 
UCB$L—ORB 
WCBSL-FCB 


XABSC_ 
KABSC_ALLLEN 
XABSC_KEYLEN_V2 
XA M 
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Sawer wanne aera nae $ 
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PSECT name 


oO. Attributes 


N 
000 0009 ¢ 0.) 00 0.) NOPIC USR CON ABS 
0000 "3 3) OC 3) 


PIC USR CON REL 
SABSS 00000000 NOPIC USR CON ABS 


LCL NOSHR’ EXE 


Phase Page faults CPU Time Elapsed Time 
Initialization 0 00:00:00.09 00:00:09. ry 
peunene processing 129 00:00: 2-86 00:00: 1-{ 

576 00:00:24. 00:00:59. bt 
a B table sort 0 00:00:03.74 00:00:04.74 
Pass 2 185 00:00:04.76 00:00:09. 34 
Symbol table output 24 00:00:00.25 00:00:00.31 
Psect synopsis output 00:00:00.02 00:00:00.03 
Cross-reference output Be Bb ee bt Op 008-80 
Assembler run totals 94 0:00:34.01 00:01:23.34 


The working set Limit was 1800 pages. 
136208 b bytes (267 pages) of virtual memory were used to buffer the intermediate code. 
There were 140 pages of symbol table space ot ecetse to hold 2557 non-local and 49 local symbols. 
1010 source Lines were read in Pass 1, produci ng.! 7 object records in Pass 2. 
46 pages of virtual memory were used to define 45 macros. 


Macro Library name 


Siti F ESS: -OBJ ny * te: 1 


YS.OBJ 


2742 GETS were required to define 41 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:RMSOOPEN/OBJ=0BJ$:RMSOOPEN MSRC$:RMSOOPEN/UPDATE=(ENHS: RMSOOPEN) +EXECML$/LIB+L1B$:RMS/LIB 
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LCL NOSHR NOEXE NORD 
GBL NOSHR EXE RD 
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NOWRT NOVEC BYTE 
NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
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